home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / E-Education / (e)d2.d64 / chocolate goo.2 (.txt) next >
Commodore BASIC  |  2008-11-26  |  20KB  |  579 lines
  1. 10 :REM *** R. PRACHUN (1983) ***
  2. 12 :REM *** P.O.BOX 1447      ***
  3. 14 :REM *** PORT PERRY, ONT.  ***
  4. 16 :REM *** L0B 1N0           ***
  5. 18 :
  6. 22 DATA 169 , 1 , 162 , 4 , 160
  7. 24 DATA 255 , 32 , 186 , 255 , 32
  8. 26 DATA 192 , 255 , 162 , 1 , 32
  9. 28 DATA 201 , 255 , 133 , 2 , 32
  10. 30 DATA 231 , 255 , 96 , 0 , 0
  11. 31 :
  12. 32 POKE 808,225:REM DISABLE STOP/RESTORE KEYS
  13. 33 :
  14. 34 YY=28:GOSUB10000:DQ=0
  15. 36 DL$(1)="                                     "
  16. 38 DL$(2)="                                     "
  17. 40 DL$(3)="                                     "
  18. 42 DL$(4)="                                     "
  19. 44 F$="":WS$=""
  20. 46 NA$="         [212]HE [195]HOCOLATE [199]OO [198]IGHT "
  21. 48 MO$(0)="    ":MO$(1)=""
  22. 50 E$="                                                      "
  23. 52 X1$="":X2$=""
  24. 54 X3$="":X4$=""
  25. 56 X5$=""
  26. 58 D5$=" [215]HAT IS YOUR CHOICE (1-4)? [146]"
  27. 60 Y1$=""
  28. 62 Y2$=""
  29. 64 Y3$=""
  30. 66 Y4$=""
  31. 68 PRINTCHR$(142):PRINT""
  32. 70 GOSUB5220
  33. 72 PRINT"[147]"CHR$(14):GOSUB5000
  34. 74 GOTO122
  35. 76 DIM P1$(3,120):I=0
  36. 78 C1=0:C2=0:W=0:R=0:PR=0
  37. 80 :
  38. 82 FORK=1TO3:I=0:POKE53280,K+4:POKE53281,K+5
  39. 84 I=I+1:READ P1$(K,I):IFP1$(K,I)="***"THEN88
  40. 86 N1(K)=N1(K)+1:GOTO84
  41. 88 NEXT K
  42. 90 :
  43. 92 FORK=1TO3:POKE53280,K+4:POKE53281,K+5
  44. 94 FORJ=1TO8:READQ1$(K,J),Q2$(K,J)
  45. 96 READ D1$(K,J),D2$(K,J),D3$(K,J),D4$(K,J),CO(K,J)
  46. 98 CV=CV+1:IFCV=2THENYY=158:CV=0
  47. 100 IFCV=1THENYY=28
  48. 102 GOSUB5350:NEXTJ:PRINT""
  49. 104 L(K,1)=INT(8*RND(1)+1)
  50. 106 FOR J=2TO5
  51. 108 L(K,J)=INT(8*RND(1)+1)
  52. 110 FORL=1TOJ-1
  53. 112 IFL(K,J)=L(K,L)THENL=J-1:GOTO108
  54. 114 NEXTL,J
  55. 116 NEXTK
  56. 118 RETURN
  57. 120 :
  58. 122 GOSUB194:F=1:GOSUB5670
  59. 124 GOSUB 248
  60. 126 IFVQ=2THENVQ=0:GOTO122
  61. 128 :
  62. 130 F=2
  63. 132 PRINT"[147]";NA$:PRINT"                 [208]ART 2":PRINT""
  64. 134 GOSUB 356:GOSUB194
  65. 136 GOSUB5670
  66. 138 GOSUB248
  67. 140 IFVQ=2THENVQ=0:GOTO130
  68. 142 F=3:PRINT"[147]";NA$:PRINT"                 [208]ART 3":PRINT""
  69. 144 GOSUB356:GOSUB194:GOSUB5670
  70. 146 GOSUB248
  71. 148 IFVQ=2THENVQ=0:GOTO142
  72. 150 PRINT"[147]        [211]UMMARY [210]EPORT ":TQ=R+W
  73. 152 PRINT"       [211]TUDENT: ";SN$
  74. 154 ZZ=W+R:PR=INT((R/ZZ)*100)
  75. 156 PRINT"       [212]OTAL [206]UMBER OF [209]UESTIONS:";TQ
  76. 158 PRINT"       [193]NSWERS CORRECT (1ST TRY):";C1
  77. 160 PRINT"       [193]NSWERS CORRECT (2ND TRY):";C2
  78. 162 PRINT"       [212]OTAL [201]NCORRECT [209]UESTIONS:";W
  79. 164 PRINT"       [212]OTAL [209]UESTIONS [195]ORRECT  :";R
  80. 166 PRINT"       =============================="
  81. 168 PRINT"       [208]ERCENTAGE [195]ORRECT       :";PR;" %"
  82. 170 GOSUB6570:IFDQ=2THENDQ=0:GOTO170
  83. 172 PRINT"[147]     [196]O YOU WISH TO SEE THE STORY"
  84. 174 PRINT"       IN PARAGRAPH FORM (Y/N)?"
  85. 176 GETZ$:IFZ$=""THEN176
  86. 178 IFZ$="Y"THEN182
  87. 180 GOSUB6410:GOTO 8000
  88. 182 FORK=1TO3
  89. 184 PRINT"[147]";NA$;"":FORI=1TON1(K)
  90. 186 PRINT MO$(NX);P1$(K,I)" ";
  91. 188 NX=NX+1:IFNX=2THENPRINT:NX=0
  92. 190 IFP1$(K,I)=" "THENGOSUB6200
  93. 192 NEXTI:NX=0:NEXTK:GOSUB6410:GOTO6240
  94. 194 IFQH=1THENRETURN
  95. 196 PRINT"[147]";NA$
  96. 198 PRINT"[144]        [195]HOOSE THE STORY SPEED."
  97. 200 PRINT"               1.[146] [198]AST"
  98. 202 PRINT"               2.[146] [205]EDIUM"
  99. 204 PRINT"               3.[146] [211]LOW"
  100. 206 PRINT"[144]        [217]OUR CHOICE (1,2,3)?"
  101. 208 GETZ$:IFZ$=""THEN208
  102. 210 GOSUB5560:CH=VAL(Z$):IFCH<1ORCH>3THEN194
  103. 212 IFCH=1THENS=20
  104. 214 IFCH=2THENS=50
  105. 216 IFCH=3THENS=75
  106. 218 GOSUB 220:GOSUB236:RETURN
  107. 220 PRINT"[147]    [212]O CHANGE THE STORY SPEED, PRESS"
  108. 222 PRINT"      AND [200][207][204][196] THE FOLLOWING KEYS;"
  109. 224 PRINT"         [212]HE [144] [198]1 [146] KEY = [198][193][211][212][197][210]"
  110. 226 PRINT"         [212]HE [144] [198]7 [146] KEY = [211][204][207][215][197][210]"
  111. 228 PRINT"     [208]RESS THE [210][197][212][213][210][206] KEY TO START."
  112. 230 GETZ1$:IFZ1$=""THEN230
  113. 232 IFZ1$<>CHR$(13)THEN230
  114. 234 GOSUB5560:RETURN
  115. 236 PRINT"[147]":X=1305:Y=1465:XC=55576:YC=55736
  116. 238 PRINT""
  117. 240 PRINT"       [198]1 [146] = [198]ASTER   [198]7 [146] = [211]LOWER"
  118. 242 FORDY=1TO500:NEXTDY
  119. 244 FOR J=1TO 39
  120. 246 POKEX,42:POKEXC,7:POKEYC,7:XC=XC+1:YC=YC+1:POKEY,42:X=X+1:Y=Y+1:NEXTJ:RETURN
  121. 248 POKE53280,6:POKE53281,12:PRINT"[147]";NA$:PRINT:POKE198,0
  122. 250 PRINT"   ";SN$;", WOULD YOU LIKE TO"
  123. 252 PRINT"   READ THIS PART OF THE STORY AGAIN  "
  124. 254 PRINT"   BEFORE ANSWERING THE QUESTIONS  "
  125. 256 PRINT"   THAT FOLLOW (Y/N)?"
  126. 258 GETZ$:IFZ$=""THEN258
  127. 260 GOSUB5560
  128. 262 IFZ$="Y"ANDF=1THEN122
  129. 264 IFZ$="Y"ANDF=2THEN124
  130. 266 IFZ$="Y"ANDF=3THEN142
  131. 268 IFZ$<>"N"THEN248
  132. 270 PRINT"[147]"NA$
  133. 272 PRINT"  [208]LEASE ANSWER THE FOLLOWING QUESTIONS"
  134. 274 PRINT"  BY TYPING IN THE NUMBER THAT MATCHES"
  135. 276 PRINT"  THE CORRECT ANSWER."
  136. 278 GOSUB 356:TM=0
  137. 280 FOR J=1TO5
  138. 282 PRINT"[147]             [209][213][197][211][212][201][207][206] #[146] ";J
  139. 284 PRINT"[158] **************************************"
  140. 286 PRINT" ";Q1$(F,L(F,J)):PRINT" ";Q2$(F,L(F,J))
  141. 288 PRINT"[158] **************************************"
  142. 290 GOSUB382
  143. 292 GETZ$:IFZ$=""THEN292
  144. 294 QC=VAL(Z$):IFQC<1ORQC>4THEN292
  145. 296 GOSUB370
  146. 298 FORV=1TO4
  147. 300 IFV=QCTHEN304
  148. 302 PRINTDL$(V)
  149. 304 NEXTV
  150. 306 IFQC=CO(F,L(F,J))THEN348
  151. 308 PRINTY1$;"       [211]ORRY, THAT IS INCORRECT."
  152. 310 PRINTY2$;"               [212]RY AGAIN!"
  153. 312 GOSUB382
  154. 314 GETZ1$:IFZ1$=""THEN314
  155. 316 QS=VAL(Z1$):IFQS<1ORQS>4THEN314
  156. 318 IFQS=CO(F,L(F,J))THEN336
  157. 320 FORV=1TO4
  158. 322 IFV=CO(F,L(F,J))THEN326
  159. 324 PRINTDL$(V)
  160. 326 NEXTV
  161. 328 PRINTY3$;"       [206]O, THE ANSWER IS NUMBER ";CO(F,L(F,J)):W=W+1
  162. 330 TM=TM+1:IFTM=3THENJ=5:GOSUB6300:W=W-1:RETURN
  163. 332 :
  164. 334 GOSUB 356:GOTO354
  165. 336 FORV=1TO4
  166. 338 IFV=QSTHEN342
  167. 340 PRINTDL$(V)
  168. 342 NEXTV:GOSUB370
  169. 344 PRINTY3$;"       [206]OW YOU HAVE IT! [199]OOD WORK!":C2=C2+1
  170. 346 GOSUB364:R=R+1:GOSUB356:GOTO354
  171. 348 GOSUB402:PRINTY2$;CG$:R=R+1:C1=C1+1
  172. 350 GOSUB364
  173. 352 GOSUB356
  174. 354 NEXTJ:RETURN
  175. 356 PRINT:PRINT"   [208]RESS THE [146] [210][197][212][213][210][206] KEY  TO CONTINUE "
  176. 358 GETQ$:IFQ$=""THEN358
  177. 360 IFQ$<>CHR$(13)THEN358
  178. 362 GOSUB5560:RETURN
  179. 364 FORSX=1TO10:POKE53280,SX:POKE53281,SX+1:FORDY=1TO25:NEXTDY:NEXTSX
  180. 366 POKE53280,6:POKE53281,12
  181. 368 RETURN
  182. 370 PRINTY1$"                                       "
  183. 372 PRINTY2$"                                       "
  184. 374 PRINTY3$"                                       "
  185. 376 PRINTY4$"                                       "
  186. 378 PRINTX5$"                                       "
  187. 380 RETURN
  188. 382 REM
  189. 384 PRINTX1$;" 1.[146] ";D1$(F,L(F,J))
  190. 386 PRINTX2$;" 2.[146] ";D2$(F,L(F,J))
  191. 388 PRINTX3$;" 3.[146] ";D3$(F,L(F,J))
  192. 390 PRINTX4$;" 4.[146] ";D4$(F,L(F,J))
  193. 392 PRINTX5$;"     ";D5$
  194. 394 RETURN
  195. 396 :
  196. 398 REM **** DATA FOR STORY ****
  197. 400 :
  198. 402 WS=INT(RND(1)*5+1)
  199. 404 ONWSGOSUB408,410,412,414,416
  200. 406 RETURN
  201. 408 CG$="           [195][160][207][160][210][160][210][160][197][160][195][160][212] ! ":RETURN
  202. 410 CG$="         [198][160][193][160][206][160][212][160][193][160][211][160][212][160][201][160][195] ! ":RETURN
  203. 412 CG$="         [211][160][213][160][208][160][197][160][210]   [215][160][207][160][210][160][203]! ":RETURN
  204. 414 CG$="         [201][160][206][160][195][160][210] [197][160][196][160][201] [194][160][204][160][197] ! ":RETURN
  205. 416 CG$="         [211] [212][160][213][160][208][160][197][160][206][160][196][160][207][160][213] [211] ! ":RETURN
  206. 2000 DATA"  [193]FTER WINNING","A FIGHT,","ONE SHOULD FEEL","SATISFACTION."
  207. 2005 DATA"[215]HY THEN","WAS [201] EXPERIENCING","A HORRIBLE","DEPRESSION?"
  208. 2010 DATA"[195]OULD IT BE","THAT MY VICTORY","WAS ALL","TOO EASY?"," "
  209. 2015 DATA"  [208]ARK OPENING DAY","USUALLY SENT","MY SPIRITS SOARING."
  210. 2020 DATA"[201] COULDN'T","UNDERSTAND","MY MOTHER'S DISLIKE","FOR THE DAY,"
  211. 2025 DATA "BUT [201] SUSPECTED","IT HAD SOMETHING","TO DO","WITH MY"
  212. 2030 DATA"UNCONTROLLABLE SPIRIT.","[205]Y ANTICIPATION"
  213. 2035 DATA"OF THE DAY","WAS DRIVING","MY MOTHER","TO THE BRINK","OF INSANITY."
  214. 2040 DATA"[201]N DESPERATION,","SHE FINALLY","GAVE ME","THE BOOT","AT ABOUT TEN"
  215. 2045 DATA"THAT MORNING."," ","  [205]Y CURIOSITY","WAS OVERPOWERING!"
  216. 2050 DATA"[201] CALLED ON","[203]ELLY AND [210]AY,","WHOM IT APPEARED,","HAD SUFFERED"
  217. 2055 DATA"SIMILAR FATES.","[215]E DECIDED","TO VISIT","THE PARK","IMMEDIATELY."
  218. 2060 DATA"[197]VEN THOUGH","THE OFFICIAL OPENING","WAS NOT","SCHEDULED UNTIL"
  219. 2065 DATA"LATE AFTERNOON,","WE WERE CONFIDENT","THAT WE COULD","GET OURSELVES"
  220. 2070 DATA"INTO TROUBLE","WELL BEFORE THEN!"," "
  221. 2075 DATA"  [215]E WERE","SO SUCCESSFUL","AT BEING","A NUISANCE,","THAT THE PARK"
  222. 2080 DATA"SOCIAL DIRECTOR","THREATENED","TO KILL","EACH OF US","PERSONALLY."
  223. 2081 DATA" "
  224. 2085 DATA"  [202]UST AS [201]","WAS FEELING","PARTICULARLY SMUG","ABOUT STEALING"
  225. 2090 DATA"SOME OF","[205]RS. [207]BERMAN'S","CHOCOLATE CAKE,","WHO","SHOULD [201]"
  226. 2095 DATA"BUMP INTO,","BUT [210]OGER!","[207]R","AS HE WAS","LESS AFFECTIONATELY"
  227. 2100 DATA"CALLED,","THE [202]OLLY [210]OGER!"," ","***"
  228. 2105 DATA"  [205]EETING [210]OGER","AT THE BEST","OF TIMES","WAS UNNERVING."
  229. 2110 DATA"[205]EETING HIM","WITH CHOCOLATE CAKE","IN YOUR HANDS"
  230. 2112 DATA"GUARANTEED"
  231. 2115 DATA"A DISASTER !"," ","  [210]OGER","HAD TWO AIMS","IN LIFE."
  232. 2120 DATA"[200]IS PRIMARY AIM","WAS TO EAT!","[212]HE OTHER","WAS TO BULLY."
  233. 2125 DATA"[194]EFORE [201] COULD","TURN TO RUN,","[210]OGER SNAPPED","THE CAKE"
  234. 2130 DATA"WITH ONE HAND","AND PUSHED","ME SPRAWLING","BACKWARDS"
  235. 2135 DATA"WITH HIS OTHER."," ","  [213]NDER NORMAL","CIRCUMSTANCES,"
  236. 2140 DATA"THIS WOULD","HAVE BEEN","THE END","OF OUR ENCOUNTER."
  237. 2145 DATA"[200]OWEVER,","[202]OLLY [210]OGER,","HAD MADE","A SERIOUS MISTAKE!"
  238. 2150 DATA"[215]HEN HE'D","PUSHED ME,","HIS HAND","TORE AWAY","ONE OF MY"
  239. 2155 DATA"SHIRT BUTTONS.","[206]O BIG DEAL,","RIGHT?"," ","         [215][210][207][206][199]!!![146]"," "
  240. 2160 DATA"  [201] COULD","COME HOME","WITH MY ARM","IN A SLING;","MY HEAD"
  241. 2165 DATA"IN MY LAP;","OR MY TEETH","IN A JAR;","BUT HEAVEN","HELP ME"
  242. 2170 DATA"IF [201] EVER","CAME HOME","WITH TORN BUTTONS."," "
  243. 2175 DATA"  [203]ELLY'S FACE","WAS FROZEN","IN FRIGHT.","[210]AY STUMBLED","BACKWARD,"
  244. 2180 DATA"TRIPPED,","AND PLOPPED","EMBARRASSINGLY","ONTO HIS REAR."
  245. 2185 DATA"[201]N MY","MIND'S EYE,","[201] COULD SEE","MY MOTHER'S"
  246. 2190 DATA"SCOWLING FACE","STARING DOWN","AT ME."
  247. 2195 DATA"[205]Y MOTHER WOULD","PULVARIZE ME!","[212]HIS WAS","TOO FAR![146]"," ","***"
  248. 2200 DATA"  [205]Y FACE","MUST HAVE","BETRAYED MY RAGE.","[210]OGER'S MOUTH"
  249. 2205 DATA"DROPPED OPEN,","SPEWING FORTH","CHOCOLATE GOO!","[204]IKE A CRAZED"
  250. 2210 DATA"BULL,","[201] CHARGED","FOR [202]OLLY [210]OGER'S"
  251. 2215 DATA"BULGING STOMACH."," ","[212]HE IMPACT","WAS HORRENDOUS!","[195]HOCOLATE CAKE"
  252. 2220 DATA"EXPLODED","FROM HIS MOUTH!","[210]OGER'S EYES","WERE WIDE","WITH TERROR"
  253. 2222 DATA"AS WE CRASHED INTO"
  254. 2225 DATA"THE [195]OKE CRATES","STACKED BEHIND","THE CLUBHOUSE."
  255. 2230 DATA" ","  [194]Y NOW,","[203]ELLY AND [210]AY","WERE DOUBLED","ON THE GROUND"
  256. 2235 DATA"IN HYSTERICS.","[212]HE NOISE","BROUGHT OUT","A SMALL CROWD"
  257. 2240 DATA"OF WIDE EYED","ONLOOKERS."," ","  [210]OGER'S LEGS","THRASHED THE AIR"
  258. 2245 DATA"IN A FRENZY !","[197]VEN THROUGH","THE CHOCALATE GOO","ON HIS FACE,"
  259. 2250 DATA"[201] COULD SEE","THE DESPERATION","IN HIS","STARING EYES."
  260. 2255 DATA" ","  [193]S THE","[195]OKE CRATES","CRASHED","ALL AROUND","MY EARS,"
  261. 2260 DATA"[201] WAS SURE","[201]'D MET","MY DOOM.","[204]IFE FLASHED","BEFORE ME!"," "
  262. 2265 DATA"  [211]UDDENLY,","ERUPTING","LIKE A VOLCANO,","[210]OGER FLEW"
  263. 2270 DATA"TO HIS FEET","AND FLED."
  264. 2275 DATA"[200]E EVEN LEFT","THE CHOCOLATE CAKE","BEHIND!"
  265. 2280 DATA" ","  [193]S [201] SAT","BEWILDERED,","AMONG","THE [195]OKE CRATES"
  266. 2285 DATA"AND CHOCOLATE GOO,","THE REALIZATION","THAT [201]","HAD JUST DEFEATED"
  267. 2290 DATA"THE TERROR","OF THE NEIGHBORHOOD,","BEGAN TO","DAWN ON ME."
  268. 2295 DATA"[193]LONG WITH","THIS REALIZATION","CAME SUDDEN","DEPRESSION."," "
  269. 2300 DATA"  [193]LL THOSE YEARS","OF FEARING","THE [202]OLLY [210]OGER,","ONLY TO FIND OUT"
  270. 2305 DATA"THAT HE","WAS MADE","OF CHOCOLATE CAKE!"," ","***"
  271. 2310 DATA"[215]HAT SPECIAL EVENT WAS TAKING","PLACE ON THIS PARTICULAR DAY?"
  272. 2315 DATA"A TOWN PARADE","A CLASS PICNIC","A PARK OPENING","A COUNTRY FAIR",3
  273. 2320 DATA"[212]HE AUTHOR'S MOTHER DISLIKED PARK","OPENINGS BECAUSE..."
  274. 2325 DATA"THE AUTHOR WAS OVEREXCITED","SHE DISLIKED SOCIAL EVENTS"
  275. 2330 DATA"SHE WAS TOO BUSY","THE AUTHOR GOT IN TROUBLE",1
  276. 2335 DATA"[212]HE WORD 'ANTICIPATION' MEANS:"," ","WORRY","EXPECTANT"
  277. 2340 DATA"TROUBLESOME","UPSETTING",2
  278. 2345 DATA"[212]HE TERM 'GAVE ME THE BOOT' MEANS:"," ","HANDED HIM HIS SHOES"
  279. 2350 DATA"HE WAS BEATEN","HELPED HIM DRESS","[200]E WAS TOLD TO LEAVE",4
  280. 2355 DATA"[215]HY DID THE BOYS DECIDE TO VISIT","THE PARK EARLY?"
  281. 2360 DATA"[212]HEY WERE BORED","THEY COULD STIR UP TROUBLE"
  282. 2365 DATA"FREE CAKE WAS TO BE HAD","THEIR MOTHERS ORDERED THEM",2
  283. 2370 DATA"[212]HE OFFICIAL OPENING WAS SCHEDULED","FOR ..."
  284. 2375 DATA"EARLY MORNING","EARLY AFTERNOON","LATE AFTERNOON","LATE MORNING",3
  285. 2380 DATA"[215]HO THREATENED TO KILL THE BOYS","WHEN THEY WERE IN THE PARK?"
  286. 2385 DATA"[205]RS.[207]BERMAN","THE PARK SECRETARY","[202]OLLY [210]OGER","THE SOCIAL DIRECTOR"
  287. 2390 DATA 4,"[215]HICH CAME FIRST:"," "
  288. 2395 DATA"[212]HE AUTHOR GOT THE BOOT","[212]HE AUTHOR MET HIS FRIENDS"
  289. 2396 DATA"[212]HE AUTHOR STOLE SOME CAKE"
  290. 2400 DATA"[212]HE BOYS WERE THREATENED",1
  291. 2405 DATA"[212]HE WORD 'BRINK' MEANS:","  "
  292. 2410 DATA"FAR AWAY","ON THE EDGE","THE DAY BEFORE","UNDER STRESS",2
  293. 2415 DATA"[215]HY WAS THE AUTHOR FEELING SMUG","JUST AFTER BEING THREATENED?"
  294. 2420 DATA"HE MET UP WITH [210]OGER","HE HAD BECOME A NUISANCE"
  295. 2425 DATA"HE'D JUST STOLEN SOME CAKE","THE OPENING WOULD BE SOON",3
  296. 2430 DATA"[215]HY WAS IT DISASTROUS TO MEET","[210]OGER WHILE HOLDING CHOCOLATE CAKE?"
  297. 2435 DATA"[210]OGER HATED CHOCOLATE CAKE","[210]OGER LOVED CAKE"
  298. 2440 DATA"[210]OGER LIKED CHOCOLATE","[210]OGER WAS NEVER HUNGRY",2
  299. 2445 DATA"[215]HAT DOES THE TERM,'IN MY MIND'S","EYE' MEAN?"
  300. 2450 DATA"EASILY SEEN","DREAMING","IMAGINING","UNCLEAR",3
  301. 2455 DATA"[215]HICH EVENT HAPPENED FIRST?"," ","[210]AY STUMBLED BACKWARDS"
  302. 2460 DATA"THE AUTHOR SAW HIS MOTHER'S FACE","[203]ELLY FROZE IN FRIGHT"
  303. 2465 DATA"[210]OGER PUSHED THE AUTHOR",4
  304. 2470 DATA"[210]OGER'S TWO AIMS IN LIFE WERE..."," "
  305. 2475 DATA"TO SLEEP AND EAT","TO BULLY AND SLEEP","TO EAT AND FIGHT"
  306. 2480 DATA"TO BULLY AND EAT",4
  307. 2485 DATA"[210]AY STUMBLED BACKWARD AND ..."," ","FELL INTO A PUDDLE"
  308. 2490 DATA"LANDED ON HIS REAR","LAUGHED OUT LOUD","STARTED TO RUN",2
  309. 2495 DATA"[203]ELLY'S FACE WAS FROZEN WITH","FRIGHT BECAUSE..."
  310. 2500 DATA"HE WAS AFRAID OF [210]OGER","IT WAS EXTREMELY COLD OUT"
  311. 2505 DATA"HE WAS AFRAID OF BEING HURT","HE WAS AFRAID OF THE PARK DIRECTOR",1
  312. 2510 DATA"[215]HY DIDN'T THE AUTHOR RUN AWAY","FROM [210]OGER?"
  313. 2515 DATA"[210]OGER WAS TOO FAST","THE AUTHOR WANTED THE CAKE","[210]OGER HELD HIM"
  314. 2520 DATA"HE WAS AFRAID TO RUN",1
  315. 2525 DATA"[215]HY WAS THIS ENCOUNTER WITH [210]OGER","NOT A NORMAL ONE?"
  316. 2530 DATA"[210]OGER WAS VERY HUNGRY","THE AUTHOR FELL BACKWARDS"
  317. 2535 DATA"[210]OGER TORE OFF A BUTTON","IT WAS [208]ARK [207]PENING [196]AY",3
  318. 2540 DATA"[215]HAT DOES THE WORD 'PULVERIZE' MEAN:","  "
  319. 2545 DATA"TO BEAT SEVERELY","TO SCOLD","TO DISAPPROVE","TO SPANK",1
  320. 2550 DATA"[215]HO WAS [202]OLLY [210]OGER?"," ","A LOCAL DELIVERY BOY","A PIRATE"
  321. 2555 DATA"A PARK DIRECTOR","A NEIGHBOURHOOD BULLY",4
  322. 2560 DATA"[215]HICH EVENT HAPPENED LAST?","  "
  323. 2565 DATA"[210]OGER'S MOUTH DROPPED OPEN","THEY CRASHED INTO [195]OKE CRATES"
  324. 2570 DATA"CAKE EXPLODED FROM [210]OGER'S MOUTH","HE CHARGED [210]OGER'S STOMACH",2
  325. 2575 DATA"[215]HAT DOES THE PHRASE 'BETRAYED","MY RAGE' MEAN?"
  326. 2580 DATA"HIDE ONE'S FEELINGS","LIE ABOUT ONE'S FEELINGS"
  327. 2585 DATA"BE VERY ANGRY","SHOW ONE'S TRUE FEELINGS",4
  328. 2590 DATA"[215]HY WAS THE AUTHOR DEPRESSED AFTER","THE FIGHT?"
  329. 2595 DATA"HE HAD BEEN HURT","[210]OGER RUINED THE CAKE"
  330. 2600 DATA"HE WAS AFRAID OF [210]OGER FOR NOTHING","HE DIDN'T LIKE WINNING",3
  331. 2605 DATA"[215]HAT DOES THE AUTHOR MEAN WHEN","HE SAYS [210]OGER WAS MADE OF CAKE?"
  332. 2610 DATA"[210]OGER LOVED CAKE","[210]OGER WAS A COWARD","CAKE MADE [210]OGER FIGHT"
  333. 2615 DATA"CAKE MADE [210]OGER GREEDY",2
  334. 2620 DATA"[215]HY WAS THE AUTHOR UPSET AT THE ","LOSS OF A BUTTON FROM HIS SHIRT?"
  335. 2625 DATA"[201]T WAS A NEW SHIRT","HE LIKED BEING NEAT AND TIDY"
  336. 2630 DATA"BUTTONS WERE HARD TO REPAIR","HIS MOTHER WOULD BE VERY UPSET",4
  337. 2635 DATA"[215]HAT DOES THE WORD 'DESPERATION'","MEAN?"
  338. 2640 DATA"QUICKLY","IN PAIN","HOPELESS PANIC","FEAR",3
  339. 2645 DATA"[215]HY WERE [203]ELLY AND [210]AY DOUBLED","OVER IN HYSTERICS?"
  340. 2650 DATA"THEY WERE NO LONGER AFRAID","[210]OGER WAS BEING BEATEN"
  341. 2655 DATA"[210]OGER WAS GETTING HIS DUES ","ALL OF THESE",4
  342. 2660 DATA"[215]HAT DOES THE TERM,'LIFE FLASHED","BEFORE ME', MEAN?"
  343. 2665 DATA"LIFE IS VERY SHORT","THE AUTHOR WAS AFRAID","THE AUTHOR WAS DYING"
  344. 2670 DATA"THE AUTHOR WAS DREAMING",2
  345. 2675 DATA"[215]HY DID THE AUTHOR BEAT [210]OGER?"," ","[210]OGER WAS WEAK"
  346. 2680 DATA"THE AUTHOR WAS VERY STRONG","[210]OGER WAS SURPRISED"
  347. 2685 DATA"[210]OGER WAS NOT FEELING WELL",3
  348. 2690 DATA"[215]HY DID A CROWD GATHER AROUND","THE FIGHT?"
  349. 2695 DATA"THE FIGHT WAS VERY NOISY","EVERYONE HAD NOTHING BETTER TO DO"
  350. 2700 DATA"THE CROWD LOVED FIGHTS","THE FIGHT WAS VERY HUMOROUS",1
  351. 4997 :
  352. 4998 REM **** END OF STORY DATA ****
  353. 4999 :
  354. 5000 POKE53280,5:POKE53281,12:GOSUB6870
  355. 5007 PRINT"[147]";NA$
  356. 5010 PRINT"       [200]ELLO, ";SN$;"."
  357. 5020 PRINT"        [208]LEASE READ THE STORY AND"
  358. 5030 PRINT"       ANSWER THE QUESTIONS THAT"
  359. 5040 PRINT"       FOLLOW."
  360. 5050 PRINT"     [217]OU MAY HAVE THE STORY PRINTED"
  361. 5060 PRINT"       OUT IN TWO DIFFERENT WAYS."
  362. 5070 PRINT"       1) [193]  PARAGRAPH [146] AT A TIME."
  363. 5080 PRINT"       2) [193]  PHRASE [146] AT A TIME."
  364. 5090 PRINT"       [201]N OPTION NUMBER TWO YOU "
  365. 5100 PRINT"     WILL BE ABLE TO CONTROL THE "
  366. 5110 PRINT"     SPEED OF THE PHRASES AS THEY"
  367. 5120 PRINT"     FLASH ON THE SCREEN."
  368. 5130 PRINT"  [215]HICH [207][208][212][201][207][206] WOULD YOU LIKE (1 OR 2)?"
  369. 5140 GETX$:IFX$=""THEN5140
  370. 5150 QH=VAL(X$):IFQH<1ORQH>2THEN5140
  371. 5160 RETURN
  372. 5170 GETZ$:IFZ$=""THEN5170
  373. 5180 IFZ$<>CHR$(13)THEN5170
  374. 5190 GOSUB5560
  375. 5210 RETURN
  376. 5220 PRINT"[147]":POKE53280,6:POKE53281,12
  377. 5230 GOSUB5340:GOTO5240
  378. 5240 AS=2006:AD=-39
  379. 5250 PRINTWS$;"           ONE MOMENT, PLEASE! "
  380. 5260 GOSUB76:RETURN
  381. 5270 FORD=1TO100:NEXTD:RETURN
  382. 5280 RETURN
  383. 5290 RETURN
  384. 5300 RETURN
  385. 5310 :
  386. 5320 REM *** GRAPHIC OPENING ***
  387. 5330 :
  388. 5340 POKE53281,12:POKE53280,7
  389. 5350 PRINT"           R. PRACHUN (1983) "
  390. 5352 :
  391. 5353 REM *** OPENING GRAPHIC START ***
  392. 5354 :
  393. 5360 PRINT:PRINT
  394. 5370 PRINT"[144]              [164][164][164][164][164][164][164][164][164][164][164]
  395. 5380 [153]"             TOFN         THENTO
  396. 5390 PRINT"            [206] [165]   THE [144]  [167] [205]
  397. 5400 [153]"           THEN (null)FN         THEN(null) FN
  398. 5410 PRINT"           [167] [165][205]CHOCOLATE[144][206][167] [165]
  399. 5420 [153]"            (null)TAB(TAB((null)       (null)TAB(TAB((null)
  400. 5430 PRINT"             [163][163][163][205] GOO[144] [206][163][163][163]
  401. 5440 [153]"                 (null)TOTOTO(null)
  402. 5450 PRINT"                  [165] [167] "
  403. 5460 PRINT"                 [206][163][163][163][205]
  404. 5470 [153]"                 TAB((null)USR(null)TAB(
  405. 5480 PRINT"                  [165] [167]
  406. 5490 [153]"                (null)TAB(TAB(TAB(TAB(TAB((null)
  407. 5500 PRINT"               [206] FIGHT[144] [205]
  408. 5510 [153]"              THENTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(FN
  409. 5520 PRINT"             [167][163][163][163][163][163][163][163][163][163][163][163][165]
  410. 5530 [153]"              TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  411. 5540 PRINT"
  412. 5550 [142]
  413. 5555 [143] *** END OF OPENING GRAPHIC ***
  414. 5560 SM[178]54272:[129]L[178]0[164]24:[151]SM[170]L,0:[130]
  415. 5570 [151]SM[170]1,45 :[151]SM[170]5,10
  416. 5580 [151]SM[170]15,30:[151]SM[170]24,6:[151]SM[170]4,21
  417. 5590 [129]TT[178]1[164]150:[130]
  418. 5600 [151]SM[170]4,20:[151]SM[170]24,0
  419. 5610 [142]
  420. 5640 :
  421. 5650 [143] *** PRINTOUT ROUTINE ***
  422. 5660 :
  423. 5670 [139]QH[178]1[167]6050
  424. 5680 [151]53280,0:[151]53281,11
  425. 5690 [129]I[178]1[164]N1(F)
  426. 5700 SH[178][194](203):[139]SH[178]4[167]S[178]S[171]5
  427. 5710 [139]SH[178]3[167]S[178]S[170]5
  428. 5720 [139]S[179]10[167]S[178]10
  429. 5730 [139]S[177]60[167]S[178]60
  430. 5740 SH[178]64
  431. 5750 [153]"              (null)(null)VALVALSTR$ WAIT =";S
  432. 5760 [153]E$:[153]F$;
  433. 5770 [153]"          ";(P1$(F,I))
  434. 5780 [129] J[178]1[164]S[172]10:[130]J
  435. 5790 [130] I:[142]
  436. 5800 :
  437. 6040 :
  438. 6050 [153]"LOAD";NA$;"":[129]I[178]1[164]N1(F)
  439. 6060 [153] MO$(NX);P1$(F,I)" ";
  440. 6070 NX[178]NX[170]1:[139]NX[178]2[167][153]:NX[178]0
  441. 6080 [139]P1$(F,I)[178]" "[167][141]6200
  442. 6090 [130]I:NX[178]0:[142]
  443. 6100 [144]:[153]"LOAD";NA$;"":[129]I[178]1[164]N2
  444. 6110 [153] P1$(F,I);" ";
  445. 6120 NX[178]NX[170]1:[139]NX[178]2[167][153]:NX[178]0
  446. 6130 [139]P1$(F,I)[178]" "[167][141]6200
  447. 6140 [130]I:NX[178]0:[142]
  448. 6150 [153]"LOAD";NA$;"":[129]I[178]1[164]N3
  449. 6160 [153] P1$(F,I);" ";
  450. 6170 NX[178]NX[170]1:[139]NX[178]2[167][153]:NX[178]0
  451. 6180 [139]P3$(F,I)[178]" "[167][141]6200
  452. 6190 [130]I:NX[178]0:[142]
  453. 6200 [153]"   (null)RESS THE WAIT (null)ETURN (null)EY  TO LENONTINUE "
  454. 6210 [161]Z$:[139]Z$[178]""[167]6210
  455. 6220 [139]Z$[179][177][199](13)[167]6210
  456. 6230 [153]"LOAD";NA$;"":NX[178]0:[142]
  457. 6235 :
  458. 6300 [143]
  459. 6310 [153]"LOAD      (null)OU APPEAR TO BE HAVING SOME "
  460. 6320 [153]"      TROUBLE WITH THESE QUESTIONS."
  461. 6330 [153]"       (null)RY READING THIS PART OF THE"
  462. 6340 [153]"      STORY AGAIN. RIGHT$ WILL GIVE YOU "
  463. 6350 [153]"      ANOTHER SET OF QUESTIONS WHEN"
  464. 6360 [153]"      YOU HAVE FINISHED."
  465. 6370 [153]"   (null)RESS THE WAIT (null)VAL(null)(null)(null)(null)  KEY TO CONTINUE "
  466. 6380 [161]X$:[139]X$[178]""[167]6380
  467. 6390 [139]X$[179][177][199](13)[167]6380
  468. 6400 TM[178]0:VQ[178]2:[142]
  469. 6410 [153]"LOAD     STR$O YOU WISH TO HAVE THE STORY"
  470. 6420 [153]"     PRINTED OUT TO A PRINTER (Y/N)?"
  471. 6430 [161]Z$:[139]Z$[178]""[167]6430
  472. 6440 [139]Z$[178]"Y"[167][141]10500:[137]6470
  473. 6450 [139]Z$[179][177]"N"[167]6430
  474. 6460 [142]
  475. 6470 [139]DQ[178]2[167]DQ[178]0:[141]9700:[137]6410
  476. 6475 [153]"LOAD    RIGHT$NSERT PAPER AND (null)URN ON (null)RINTER! ":[141]356
  477. 6480 [159]4,4
  478. 6490 [129]K[178]1[164]3
  479. 6500 [152]4,"";NA$
  480. 6510 [129] I[178]1[164] N1(K)
  481. 6520 [152]4,"";MO$(NX);P1$(K,I)" ";
  482. 6530 NX[178]NX[170]1:[139]NX[178]4[167][152]4:NX[178]0
  483. 6540 [139]P1$(K,I)[178]" "[167][152]4:NX[178]0
  484. 6550 [130]I:NX[178]0:[130]K:[160]4
  485. 6560 [142]
  486. 6570 [153]"   (null)OULD YOU LIKE THE (null)EPORT TO BE"
  487. 6580 [153]"   PRINTED ON A PRINTER (Y/N)?"
  488. 6590 [161]X$:[139]X$[178]""[167]6590
  489. 6600 [139]X$[178]"Y"[167]6630
  490. 6610 [139]X$[179][177]"N"[167]6590
  491. 6620 [142]
  492. 6630 [141]6850:[139]DQ[178]2[167][141]9700:[142]
  493. 6635 [153]"   (null)RINTING OUT (null)EPORT FOR WAIT ";SN$
  494. 6640 TQ[178]W[170]R
  495. 6650 [159]4,4
  496. 6660 [152]4,"";NA$
  497. 6670 [152]4
  498. 6680 [152]4,"   ==================================="
  499. 6690 [152]4,"        (null)TUDENT: ";SN$
  500. 6700 [152]4,"   ==================================="
  501. 6710 [152]4,"   (null)TORY (null)EPORT"
  502. 6720 [152]4,"   ------------"
  503. 6730 [152]4,"   (null)OTAL (null)UMBER OF (null)UESTIONS: ";TQ
  504. 6740 [152]4
  505. 6750 [152]4,"   ATNNSWERS LENORRECT (1ST TRY): ";C1
  506. 6760 [152]4
  507. 6770 [152]4,"   ATNNSWERS LENORRECT (2ND TRY): ";C2
  508. 6780 [152]4
  509. 6790 [152]4,"   (null)OTAL RIGHT$NCORRECT (null)UESTIONS: ";W
  510. 6800 [152]4
  511. 6810 [152]4,"   (null)OTAL (null)UESTIONS LENORRECT  : ";R
  512. 6820 [152]4,"   ----------------------------------"
  513. 6830 [152]4,"   (null)ERCENTAGE LENORRECT       : ";PR;" %"
  514. 6840 [160]4:[141]356:[142]
  515. 6850 [158](828):[139][194](2)[178]5[167]DQ[178]2:[142]
  516. 6858 [153]"LOAD  RIGHT$NSERT PAPER AND TURN ON THE PRINTER "
  517. 6860 [141]356:[153]"LOAD":[142]
  518. 6862 :
  519. 6870 [153][199](142):[153]"LOAD"
  520. 6880 VB$[178]"":IU[178]14:JQ[178]0
  521. 6900 [153]"        PLEASE TYPE IN YOUR FIRST "
  522. 6910 [153]"        NAME:>WAIT ":[153]
  523. 6920 ZZ$[178]"":[151]204,1:[153]VB$
  524. 6930 [161]ZA$:[139]ZA$[178]""[167]6930
  525. 6940 [139][198](ZA$)[178]13[167]SN$[178]ZZ$:[137]7000
  526. 6950 [139][198](ZA$)[178]20[167][137]6980
  527. 6955 [139][198](ZA$)[179]65[176][198](ZA$)[177]90[167]6930
  528. 6957 JQ[178]JQ[170]1:[139]JQ[178]16[167]ZZ$[178]"":[137]6870
  529. 6960 ZZ$[178]ZZ$[170]ZA$:IU[178]IU[170]1
  530. 6970 [153]"";[163]IU);ZA$;:[137]6930
  531. 6980 [139]IU[178]14[167][137]6930
  532. 6990 JQ[178]JQ[171]1:ZZ$[178][200](ZZ$,[195](ZZ$)[171]1):IU[178]IU[171]1:[137]6970
  533. 7000 [139]SN$[178]""[167]6870
  534. 7010 FL[178][198]([200](ZZ$,1)):FL[178]FL[170]128
  535. 7020 SN$[178][202](ZZ$,2,([195](ZZ$)[171]1))
  536. 7030 ZZ$[178][199](FL)[170]SN$:SN$[178]ZZ$
  537. 7040 [153][199](14):[142]
  538. 8000 [153]"LOAD     (null)OULD YOU OR ANYONE ELSE LIKE "
  539. 8010 [153]"     TO READ THIS STORY NOW (Y/N)?"
  540. 8020 [161]Z$:[139]Z$[178]""[167]8020
  541. 8025 [139]Z$[178]"Y"[167][138]
  542. 8030 [139]Z$[179][177]"N"[167]8020
  543. 8040 :
  544. 8041 [153]"      (null)OULD YOU LIKE ANOTHER STORY"
  545. 8042 [153]"             PERHAPS (Y/N)?"
  546. 8050 [161]X$:[139]X$[178]""[167]8050
  547. 8060 [139]X$[178]"Y"[167][141]9500:[137]9000
  548. 8070 [139]X$[179][177]"N"[167]8050
  549. 8100 [158]64738
  550. 8200 :[128]:
  551. 9000 [139]DQ[178]2[167]DQ[178]0:[151]831,4:[141]9700:[137]8040
  552. 9005 [153]"STOPLOAD        (null)OADING:  (null)AIN (null)ENU 64 "
  553. 9010 [151]53281,1:[151]53280,6
  554. 9020 [143] *** BOOT SAMPLE ***
  555. 9030 :
  556. 9040 :
  557. 9050 [143] *** FIRST PROGRAM BOOTED ***
  558. 9060 :
  559. 9070 [153]"LOAD"[199](34)"MAIN MENU 64";[199](34)",8"
  560. 9080 :
  561. 9090 :
  562. 9100 [153]"RUN"
  563. 9110 :
  564. 9120 [143] *** SET-UP KEYBOARD BUFFER ***
  565. 9130 :
  566. 9140 [153]"":[129]J[178]0[164]4:[151]631[170]J,13:[130]J:[151]198,5
  567. 9150 [128]
  568. 9500 [151]831,8:[141]10500:[139]DQ[178]2[167][142]
  569. 9505 [153]"LOAD    RIGHT$NSERT THE ATNDVENTURE (null)ERIES DISK"
  570. 9510 [153]"          INTO THE DISK DRIVE."
  571. 9520 [141]356:[142]
  572. 9700 [153]"LOAD     (null)PPS! (null)HE DEVICE IS NOT READY! "
  573. 9710 [141]356:[142]
  574. 10000 [129]K[178]0[164]24
  575. 10010 [135] ZZ:[151]828[170]K,ZZ
  576. 10020 [130] K:[142]
  577. 10500 [158](828):[139][194](2)[178]5[167]DQ[178]2
  578. 10510 [142]
  579.